inherited fmBankExchange: TfmBankExchange
  Left = 422
  Top = 212
  Width = 1275
  Height = 683
  Caption = 'fmBankExchange'
  Constraints.MinHeight = 580
  Constraints.MinWidth = 904
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel [0]
    Left = 0
    Top = 207
    Width = 1259
    Height = 377
    Align = alBottom
    Caption = 'Panel3'
    TabOrder = 3
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 568
      Height = 375
      Align = alLeft
      Caption = #1056#1077#1082#1074#1080#1079#1080#1090#1099' '#1087#1083#1072#1090#1077#1078#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
      TabOrder = 0
      object Bevel4: TBevel
        Left = 8
        Top = 303
        Width = 553
        Height = 60
      end
      object Bevel2: TBevel
        Left = 8
        Top = 64
        Width = 553
        Height = 121
      end
      object Bevel1: TBevel
        Left = 8
        Top = 24
        Width = 553
        Height = 33
      end
      object DBText1: TDBText
        Left = 216
        Top = 33
        Width = 241
        Height = 17
        DataField = 'BPNAME'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 468
        Top = 34
        Width = 13
        Height = 13
        Caption = #8470
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText2: TDBText
        Left = 488
        Top = 32
        Width = 65
        Height = 17
        DataField = 'BPNUM'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label1: TLabel
        Left = 21
        Top = 33
        Width = 35
        Height = 13
        Caption = #1057#1091#1084#1084#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText3: TDBText
        Left = 61
        Top = 28
        Width = 140
        Height = 25
        DataField = 'BPSUMMA'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 164
        Width = 25
        Height = 13
        Caption = #1048#1053#1053':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 160
        Top = 165
        Width = 25
        Height = 13
        Caption = #1050#1055#1055':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 66
        Width = 64
        Height = 13
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 320
        Top = 165
        Width = 29
        Height = 13
        Caption = #1057#1095#1077#1090':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 16
        Top = 306
        Width = 100
        Height = 13
        Caption = #1041#1072#1085#1082' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 312
        Top = 308
        Width = 24
        Height = 13
        Caption = #1041#1048#1050':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText4: TDBText
        Left = 48
        Top = 162
        Width = 89
        Height = 17
        DataField = 'BPPLATINN'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText5: TDBText
        Left = 192
        Top = 163
        Width = 105
        Height = 17
        DataField = 'BPPLATKPP'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText6: TDBText
        Left = 16
        Top = 80
        Width = 537
        Height = 81
        DataField = 'BPPLAT1'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object DBText7: TDBText
        Left = 354
        Top = 163
        Width = 205
        Height = 17
        DataField = 'BPPLATSCHET'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText8: TDBText
        Left = 16
        Top = 322
        Width = 537
        Height = 33
        DataField = 'BPPLATBANK1'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object DBText9: TDBText
        Left = 344
        Top = 306
        Width = 65
        Height = 17
        DataField = 'BPPLATBIK'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Bevel3: TBevel
        Left = 8
        Top = 194
        Width = 553
        Height = 100
      end
      object DBText10: TDBText
        Left = 16
        Top = 216
        Width = 537
        Height = 78
        DataField = 'BPNAZNACHPLAT'
        DataSource = DataSourceAllPoruch
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label10: TLabel
        Left = 16
        Top = 197
        Width = 107
        Height = 13
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
    end
    object GroupBox2: TGroupBox
      Left = 577
      Top = 1
      Width = 681
      Height = 375
      Align = alClient
      Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1087#1083#1072#1090#1077#1078#1072' '#1082' '#1087#1086#1083#1091#1095'. '#1091#1089#1083#1091#1075
      TabOrder = 1
      object ToolBar2: TToolBar
        Left = 2
        Top = 133
        Width = 677
        AutoSize = True
        BorderWidth = 2
        EdgeInner = esNone
        EdgeOuter = esNone
        Images = DMInv.ilActive
        TabOrder = 0
        Transparent = True
        object tbDAdd: TToolButton
          Left = 0
          Top = 2
          Hint = #1044#1086#1073#1072#1074#1080#1090#1100
          ImageIndex = 28
          ParentShowHint = False
          ShowHint = True
          OnClick = tbDAddClick
        end
        object tbDDel: TToolButton
          Left = 23
          Top = 2
          Hint = #1059#1076#1072#1083#1080#1090#1100
          ImageIndex = 29
          ParentShowHint = False
          ShowHint = True
          OnClick = tbDDelClick
        end
        object tbEditSC: TToolButton
          Left = 46
          Top = 2
          Caption = 'tbEditSC'
          ImageIndex = 2
          Visible = False
          OnClick = tbEditSCClick
        end
      end
      object cxGrid6: TcxGrid
        Left = 2
        Top = 73
        Width = 677
        Height = 60
        Align = alTop
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Visible = False
        LookAndFeel.Kind = lfStandard
        object tvC: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          DataController.DataSource = dsComRaznes
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'CAMOUNT'
              Column = tvCCAMOUNT
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.CellEndEllipsis = True
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          Preview.Visible = True
          Styles.Header = DMInv.cxSiniyText
          object tvCSTNAME: TcxGridDBColumn
            Caption = #1059#1089#1083#1091#1075#1072
            DataBinding.FieldName = 'STNAME'
            Visible = False
            Width = 613
          end
          object tvCCAMOUNT: TcxGridDBColumn
            Caption = #1057#1091#1084#1084#1072
            DataBinding.FieldName = 'CAMOUNT'
            Width = 73
          end
          object tvCDOLGNY_ZAPL: TcxGridDBColumn
            Caption = #1055#1088#1086#1076#1072#1085#1086' '#1087#1086' '#1075#1088#1072#1092'.'
            DataBinding.FieldName = 'DOLGNY_ZAPL'
          end
          object tvCNAL: TcxGridDBColumn
            Caption = #1054#1087#1083'. '#1053#1072#1083'.'
            DataBinding.FieldName = 'NAL'
          end
          object tvCBEZNAL: TcxGridDBColumn
            Caption = #1054#1087#1083'. '#1041#1077#1079#1085#1072#1083'.'
            DataBinding.FieldName = 'BEZNAL'
          end
          object tvCUJE_ZAPLATILI: TcxGridDBColumn
            Caption = #1042#1089#1077#1075#1086' '#1086#1087#1083'.'
            DataBinding.FieldName = 'UJE_ZAPLATILI'
          end
          object tvCSCTARIFWITHDISCOUNT: TcxGridDBColumn
            Caption = #1058#1072#1088#1080#1092
            DataBinding.FieldName = 'SCTARIFWITHDISCOUNT'
          end
          object tvCSCNUM_N: TcxGridDBColumn
            Caption = #8470' '#1044#1086#1087'. '#1089#1086#1075#1083'.'
            DataBinding.FieldName = 'SCNUM_N'
          end
          object tvCSCDATEBEGIN: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1074#1089#1090'. '#1074' '#1089#1080#1083#1091
            DataBinding.FieldName = 'SCDATEBEGIN'
          end
          object tvCSCDATEEND: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095'.'
            DataBinding.FieldName = 'SCDATEEND'
          end
        end
        object cxGridLevel8: TcxGridLevel
          GridView = tvC
        end
      end
      object dbgPA: TcxGrid
        Left = 2
        Top = 165
        Width = 677
        Height = 208
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        LookAndFeel.Kind = lfStandard
        object tvPA: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          OnCellDblClick = tvPACellDblClick
          DataController.DataSource = dsPaymants_Agr
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'PAAMOUNT'
              Column = tvPAPAAMOUNT
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.CellEndEllipsis = True
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          Preview.Visible = True
          Styles.Header = DMInv.cxSiniyText
          object tvPAPAID: TcxGridDBColumn
            Caption = 'ID'
            DataBinding.FieldName = 'PAID'
            Width = 26
          end
          object tvPAPADATE: TcxGridDBColumn
            Caption = #1044#1072#1090#1072
            DataBinding.FieldName = 'PADATE'
            Width = 43
          end
          object tvPAP_RECIPIENT: TcxGridDBColumn
            Caption = #1055#1086#1083#1091#1095'. '#1091#1089#1083#1091#1075
            DataBinding.FieldName = 'P_RECIPIENT'
            Width = 95
          end
          object tvPAPLAT: TcxGridDBColumn
            Caption = #1055#1076#1072#1090#1077#1083#1100#1097#1080#1082
            DataBinding.FieldName = 'PLAT'
            Width = 93
          end
          object tvPAPAAMOUNT: TcxGridDBColumn
            Caption = #1057#1091#1084#1084#1072
            DataBinding.FieldName = 'PAAMOUNT'
            Width = 49
          end
          object tvPAPANOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'PANOTE'
            Width = 97
          end
          object tvPAPAUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'PAUSERENTER'
            Width = 49
          end
          object tvPAPATIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
            DataBinding.FieldName = 'PATIMEENTER'
            Width = 81
          end
          object tvPAPAUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'PAUSEREDIT'
            Width = 73
          end
          object tvPAPATIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
            DataBinding.FieldName = 'PATIMEEDIT'
            Width = 76
          end
        end
        object cxGridLevel2: TcxGridLevel
          GridView = tvPA
        end
      end
      object cxGrid2: TcxGrid
        Left = 2
        Top = 15
        Width = 677
        Height = 58
        Align = alTop
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Visible = False
        LookAndFeel.Kind = lfStandard
        object tvSC: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          DataController.DataSource = dsCommon
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'CSAMOUNT'
              Column = tvSCCSAMOUNT
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsCustomize.ColumnFiltering = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.CellEndEllipsis = True
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          Preview.Visible = True
          Styles.Header = DMInv.cxSiniyText
          object tvSCColumn1: TcxGridDBColumn
            Caption = #8470
            OnGetDataText = tvSCColumn1GetDataText
            Options.Editing = False
            Width = 31
          end
          object tvSCPP_POLUCH: TcxGridDBColumn
            Caption = #1055#1086#1083#1091#1095'. '#1091#1089#1083#1091#1075
            DataBinding.FieldName = 'PP_POLUCH'
            Width = 112
          end
          object tvSCPP: TcxGridDBColumn
            Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
            DataBinding.FieldName = 'PP'
            Options.Editing = False
            Width = 109
          end
          object tvSCCSDATE: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1086#1087#1083#1072#1090#1099
            DataBinding.FieldName = 'CSDATE'
            Width = 113
          end
          object tvSCCSNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'CSNOTE'
            Width = 114
          end
          object tvSCAUTOR: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'AUTOR'
            Options.Editing = False
            Width = 57
          end
          object tvSCCSTIMEENTER: TcxGridDBColumn
            Caption = #1042#1088#1077#1084#1103' '#1074#1074#1086#1076#1072
            DataBinding.FieldName = 'CSTIMEENTER'
            Options.Editing = False
            Width = 109
          end
          object tvSCCSAMOUNT: TcxGridDBColumn
            Caption = #1057#1091#1084#1084#1072
            DataBinding.FieldName = 'CSAMOUNT'
            Options.Editing = False
            Width = 37
          end
        end
        object cxGridLevel5: TcxGridLevel
          GridView = tvSC
        end
      end
    end
    object cxSplitter2: TcxSplitter
      Left = 569
      Top = 1
      Width = 8
      Height = 375
      Control = GroupBox1
    end
  end
  inherited sbBottom: TStatusBar
    Top = 625
    Width = 1259
    Height = 20
  end
  inherited Panel1: TPanel
    Width = 1259
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1081
    end
    inherited BitBtn2: TBitBtn
      Left = 1169
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 584
    Width = 1259
    Height = 41
    Align = alBottom
    TabOrder = 2
    object cxButton1: TcxButton
      Left = 24
      Top = 8
      Width = 193
      Height = 25
      Caption = #1048#1084#1087#1086#1088#1090' '#1080#1079' '#1050#1083#1080#1077#1085#1090'-'#1073#1072#1085#1082#1072
      TabOrder = 0
      OnClick = cxButton1Click
    end
  end
  object dbgBanklPlat: TcxGrid [4]
    Left = 0
    Top = 94
    Width = 1259
    Height = 113
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    LookAndFeel.Kind = lfStandard
    object tvBanklPlat: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      OnEditValueChanged = tvBanklPlatEditValueChanged
      DataController.DataSource = DataSourceAllPoruch
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0.00'
          Kind = skSum
          FieldName = 'BPSUMMA'
          Column = tvBanklPlatBPSUMMA
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvBanklPlatColumn1: TcxGridDBColumn
        Caption = #8470#1087'/'#1087
        OnGetDataText = tvBanklPlatColumn1GetDataText
        Options.Editing = False
        Options.Sorting = False
        Width = 38
      end
      object tvBanklPlatBPNUM: TcxGridDBColumn
        Caption = #8470' '#1076#1086#1082#1091#1084'.'
        DataBinding.FieldName = 'BPNUM'
        Options.Editing = False
        Width = 57
      end
      object tvBanklPlatBPNAME: TcxGridDBColumn
        Caption = #1053#1072#1079#1074'. '#1076#1086#1082#1091#1084'.'
        DataBinding.FieldName = 'BPNAME'
        Options.Editing = False
        Width = 97
      end
      object tvBanklPlatBPSUMMA: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072
        DataBinding.FieldName = 'BPSUMMA'
        Options.Editing = False
        Width = 53
      end
      object tvBanklPlatBPDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072
        DataBinding.FieldName = 'BPDATE'
        Options.Editing = False
        Width = 44
      end
      object tvBanklPlatBPPLATSCHET: TcxGridDBColumn
        Caption = #1057#1095#1077#1090#1055#1083#1072#1090
        DataBinding.FieldName = 'BPPLATSCHET'
        Options.Editing = False
        Width = 76
      end
      object tvBanklPlatBPPOLUCHSCHET: TcxGridDBColumn
        Caption = #1057#1095#1077#1090#1055#1086#1083#1091#1095
        DataBinding.FieldName = 'BPPOLUCHSCHET'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPLATINN: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1048#1053#1053
        DataBinding.FieldName = 'BPPLATINN'
        Visible = False
        Options.Editing = False
        Width = 21
      end
      object tvBanklPlatBPPLAT1: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        DataBinding.FieldName = 'BPPLAT1'
        Options.Editing = False
        Width = 93
      end
      object tvBanklPlatBPPLATBIK: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1041#1048#1050
        DataBinding.FieldName = 'BPPLATBIK'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPLATBANK1: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1041#1072#1085#1082
        DataBinding.FieldName = 'BPPLATBANK1'
        Options.Editing = False
        Width = 77
      end
      object tvBanklPlatBPPOLUCHINN: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1048#1053#1053
        DataBinding.FieldName = 'BPPOLUCHINN'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOLUCH1: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        DataBinding.FieldName = 'BPPOLUCH1'
        Options.Editing = False
        Width = 91
      end
      object tvBanklPlatBPPOLUCHBIK: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1041#1048#1050
        DataBinding.FieldName = 'BPPOLUCHBIK'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOLUCHBANK1: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1041#1072#1085#1082
        DataBinding.FieldName = 'BPPOLUCHBANK1'
        Options.Editing = False
        Width = 83
      end
      object tvBanklPlatBPNAZNACHPLAT: TcxGridDBColumn
        Caption = #1053#1072#1079#1085#1072#1095#1055#1083#1072#1090#1077#1078#1072
        DataBinding.FieldName = 'BPNAZNACHPLAT'
        Options.Editing = False
        Width = 119
      end
      object tvBanklPlatBPSTATUSSOST: TcxGridDBColumn
        Caption = #1057#1090#1072#1090#1091#1089#1057#1086#1089#1090
        DataBinding.FieldName = 'BPSTATUSSOST'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPLATKPP: TcxGridDBColumn
        Caption = #1055#1083#1072#1090#1050#1055#1055
        DataBinding.FieldName = 'BPPLATKPP'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOLUCHKPP: TcxGridDBColumn
        Caption = #1055#1086#1083#1091#1095#1050#1055#1055
        DataBinding.FieldName = 'BPPOLUCHKPP'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOKAZKBK: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1050#1041#1050
        DataBinding.FieldName = 'BPPOKAZKBK'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPOKATO: TcxGridDBColumn
        Caption = #1054#1050#1040#1058#1054
        DataBinding.FieldName = 'BPOKATO'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOKAZOSNOV: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1054#1089#1085#1086#1074#1072#1085#1080#1103
        DataBinding.FieldName = 'BPPOKAZOSNOV'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOKAZPERIODA: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1055#1077#1088#1080#1086#1076#1072
        DataBinding.FieldName = 'BPPOKAZPERIODA'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOKAZNOMERA: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1053#1086#1084#1077#1088#1072
        DataBinding.FieldName = 'BPPOKAZNOMERA'
        Visible = False
        Options.Editing = False
        Width = 21
      end
      object tvBanklPlatBPPOKAZDATY: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1044#1072#1090#1099
        DataBinding.FieldName = 'BPPOKAZDATY'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPPOKAZTIPA: TcxGridDBColumn
        Caption = #1055#1086#1082#1072#1079#1058#1080#1087#1072
        DataBinding.FieldName = 'BPPOKAZTIPA'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPVIDOPLATY: TcxGridDBColumn
        Caption = #1042#1080#1076#1054#1087#1083#1072#1090#1099
        DataBinding.FieldName = 'BPVIDOPLATY'
        Visible = False
        Options.Editing = False
        Width = 20
      end
      object tvBanklPlatBPDATASPISANO: TcxGridDBColumn
        Caption = #1044#1072#1090#1072#1057#1087#1080#1089#1072#1085#1080#1103
        DataBinding.FieldName = 'BPDATASPISANO'
        Options.Editing = False
        Width = 107
      end
      object tvBanklPlatBPPRIHOD: TcxGridDBColumn
        Caption = #1055#1088#1080#1093#1086#1076
        DataBinding.FieldName = 'BPPRIHOD'
        Options.Editing = False
        Width = 61
      end
      object tvBanklPlatBPDATAPOSTUPILO: TcxGridDBColumn
        Caption = #1044#1072#1090#1072#1055#1086#1089#1090#1091#1087#1083#1077#1085#1080#1103
        DataBinding.FieldName = 'BPDATAPOSTUPILO'
        Options.Editing = False
        Width = 142
      end
      object tvBanklPlatBPTYPE: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1087#1083#1072#1090#1077#1078#1072
        DataBinding.FieldName = 'BPTYPE'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'bptype'
        Properties.ListColumns = <
          item
            Caption = #1042#1099#1073#1077#1088#1080#1090#1077' '#1090#1080#1087' '#1087#1083#1072#1090#1077#1078#1072
            FieldName = 'typename'
          end>
        Properties.ListSource = dsBPTYPE
        Properties.OnValidate = tvBanklPlatBPTYPEPropertiesValidate
        Width = 125
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = tvBanklPlat
    end
  end
  object ToolBar1: TToolBar [5]
    Left = 0
    Top = 45
    Width = 1259
    AutoSize = True
    BorderWidth = 2
    EdgeInner = esNone
    EdgeOuter = esNone
    Images = DMInv.ilActive
    TabOrder = 5
    Transparent = True
    object tbBIK: TToolButton
      Left = 0
      Top = 2
      Hint = #1055#1086#1082#1072#1079#1072#1090#1100' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1077#1081' '#1089' '#1090#1072#1082#1080#1084' '#1041#1048#1050#1086#1084
      ImageIndex = 24
      ParentShowHint = False
      ShowHint = True
      OnClick = tbBIKClick
    end
    object tbGridCustomisation: TToolButton
      Left = 23
      Top = 2
      Hint = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1090#1072#1073#1083#1080#1094#1099
      ImageIndex = 34
      ParentShowHint = False
      ShowHint = True
      OnClick = tbGridCustomisationClick
    end
    object ToolButton1: TToolButton
      Left = 46
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 35
      Style = tbsSeparator
    end
    object cxLabel3: TcxLabel
      Left = 54
      Top = 4
      Caption = ' '#1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072': '
    end
    object cxComboBox1: TcxComboBox
      Left = 144
      Top = 2
      ParentFont = False
      Properties.Items.Strings = (
        #1042#1089#1077
        #1058#1077#1093#1085#1080#1095#1077#1089#1082#1080#1081
        #1053#1077#1086#1087#1086#1079#1085#1072#1085#1085#1099#1081
        #1050#1083#1080#1077#1085#1090#1089#1082#1080#1081
        #1040#1088#1093#1080#1074#1085#1099#1081)
      Properties.ReadOnly = False
      Properties.OnChange = cxComboBox1PropertiesChange
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 0
      Text = #1053#1077#1086#1087#1086#1079#1085#1072#1085#1085#1099#1081
      Width = 121
    end
    object cxLabel1: TcxLabel
      Left = 265
      Top = 4
      Caption = ' '#1053#1072' '#1076#1072#1090#1091'*: '
    end
    object eDate: TcxButtonEdit
      Tag = 950
      Left = 326
      Top = 2
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eDatePropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 2
      Width = 177
    end
    object ToolButton2: TToolButton
      Left = 503
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object cxLabel2: TcxLabel
      Left = 511
      Top = 4
      Caption = ' '#1055#1086#1080#1089#1082' '#1087#1086' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1084#1091' '#1087#1086#1083#1102': '
    end
    object eFindText: TcxTextEdit
      Left = 672
      Top = 2
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 186
    end
    object tbFind: TToolButton
      Left = 858
      Top = 2
      Hint = #1055#1086#1080#1089#1082
      Caption = 'tbFind'
      ImageIndex = 9
      ParentShowHint = False
      ShowHint = True
      OnClick = tbFindClick
    end
    object tbClearFilter: TToolButton
      Left = 881
      Top = 2
      Hint = #1057#1073#1088#1086#1089' '#1089#1090#1088#1086#1082#1080' '#1087#1086#1080#1089#1082#1072
      Caption = 'tbClearFilter'
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = tbClearFilterClick
    end
  end
  object cxLabel4: TcxLabel [6]
    Left = 0
    Top = 77
    Align = alTop
    Caption = 
      '* '#1077#1089#1083#1080' '#1076#1072#1090#1072' '#1085#1077' '#1091#1082#1072#1079#1072#1085#1072', '#1090#1086' '#1074#1099#1074#1086#1076#1103#1090#1089#1103' '#1076#1086#1082#1091#1084#1077#1085#1090#1099' '#1079#1072' '#1087#1086#1089#1083#1077#1076#1085#1080#1077' 30 '#1076 +
      #1085#1077#1081
    Style.TextColor = clGray
  end
  object od: TOpenDialog
    Filter = #1060#1072#1081#1083' '#1080#1084#1087#1086#1088#1090#1072'|Kl_to_1c.txt|'#1042#1089#1077' '#1092#1072#1081#1083#1099'|*.*'
    InitialDir = '.'
    Left = 712
    Top = 48
  end
  object qBank: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT bp.*'
      'FROM BANK_PORUCH bp'
      'WHERE bp.BPID = -1')
    UpdateObject = quBank
    GeneratorField.Field = 'BPID'
    GeneratorField.Generator = 'GEN_BANK_PORUCH_ID'
    Left = 808
    Top = 48
    object qBankBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"BANK_PORUCH"."BPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qBankBPNAME: TIBStringField
      FieldName = 'BPNAME'
      Origin = '"BANK_PORUCH"."BPNAME"'
      Size = 255
    end
    object qBankBPNUM: TIntegerField
      FieldName = 'BPNUM'
      Origin = '"BANK_PORUCH"."BPNUM"'
    end
    object qBankBPDATE: TDateField
      FieldName = 'BPDATE'
      Origin = '"BANK_PORUCH"."BPDATE"'
    end
    object qBankBPSUMMA: TIBBCDField
      FieldName = 'BPSUMMA'
      Origin = '"BANK_PORUCH"."BPSUMMA"'
      Precision = 18
      Size = 2
    end
    object qBankBPPLATSCHET: TIBStringField
      FieldName = 'BPPLATSCHET'
      Origin = '"BANK_PORUCH"."BPPLATSCHET"'
      Size = 255
    end
    object qBankBPPOLUCHSCHET: TIBStringField
      FieldName = 'BPPOLUCHSCHET'
      Origin = '"BANK_PORUCH"."BPPOLUCHSCHET"'
      Size = 255
    end
    object qBankBPPLATINN: TIBStringField
      FieldName = 'BPPLATINN'
      Origin = '"BANK_PORUCH"."BPPLATINN"'
      Size = 12
    end
    object qBankBPPLAT1: TIBStringField
      FieldName = 'BPPLAT1'
      Origin = '"BANK_PORUCH"."BPPLAT1"'
      Size = 2048
    end
    object qBankBPPLATBIK: TIBStringField
      FieldName = 'BPPLATBIK'
      Origin = '"BANK_PORUCH"."BPPLATBIK"'
      Size = 255
    end
    object qBankBPPLATBANK1: TIBStringField
      FieldName = 'BPPLATBANK1'
      Origin = '"BANK_PORUCH"."BPPLATBANK1"'
      Size = 2048
    end
    object qBankBPPOLUCHINN: TIBStringField
      FieldName = 'BPPOLUCHINN'
      Origin = '"BANK_PORUCH"."BPPOLUCHINN"'
      Size = 12
    end
    object qBankBPPOLUCH1: TIBStringField
      FieldName = 'BPPOLUCH1'
      Origin = '"BANK_PORUCH"."BPPOLUCH1"'
      Size = 2048
    end
    object qBankBPPOLUCHBIK: TIBStringField
      FieldName = 'BPPOLUCHBIK'
      Origin = '"BANK_PORUCH"."BPPOLUCHBIK"'
      Size = 255
    end
    object qBankBPPOLUCHBANK1: TIBStringField
      FieldName = 'BPPOLUCHBANK1'
      Origin = '"BANK_PORUCH"."BPPOLUCHBANK1"'
      Size = 2048
    end
    object qBankBPNAZNACHPLAT: TIBStringField
      FieldName = 'BPNAZNACHPLAT'
      Origin = '"BANK_PORUCH"."BPNAZNACHPLAT"'
      Size = 2048
    end
    object qBankBPSTATUSSOST: TIBStringField
      FieldName = 'BPSTATUSSOST'
      Origin = '"BANK_PORUCH"."BPSTATUSSOST"'
      Size = 255
    end
    object qBankBPPLATKPP: TIBStringField
      FieldName = 'BPPLATKPP'
      Origin = '"BANK_PORUCH"."BPPLATKPP"'
      Size = 12
    end
    object qBankBPPOLUCHKPP: TIBStringField
      FieldName = 'BPPOLUCHKPP'
      Origin = '"BANK_PORUCH"."BPPOLUCHKPP"'
      Size = 12
    end
    object qBankBPPOKAZKBK: TIBStringField
      FieldName = 'BPPOKAZKBK'
      Origin = '"BANK_PORUCH"."BPPOKAZKBK"'
      Size = 255
    end
    object qBankBPOKATO: TIBStringField
      FieldName = 'BPOKATO'
      Origin = '"BANK_PORUCH"."BPOKATO"'
      Size = 255
    end
    object qBankBPPOKAZOSNOV: TIBStringField
      FieldName = 'BPPOKAZOSNOV'
      Origin = '"BANK_PORUCH"."BPPOKAZOSNOV"'
      Size = 255
    end
    object qBankBPPOKAZPERIODA: TIBStringField
      FieldName = 'BPPOKAZPERIODA'
      Origin = '"BANK_PORUCH"."BPPOKAZPERIODA"'
      Size = 255
    end
    object qBankBPPOKAZNOMERA: TIBStringField
      FieldName = 'BPPOKAZNOMERA'
      Origin = '"BANK_PORUCH"."BPPOKAZNOMERA"'
      Size = 255
    end
    object qBankBPPOKAZDATY: TIBStringField
      FieldName = 'BPPOKAZDATY'
      Origin = '"BANK_PORUCH"."BPPOKAZDATY"'
      Size = 255
    end
    object qBankBPPOKAZTIPA: TIBStringField
      FieldName = 'BPPOKAZTIPA'
      Origin = '"BANK_PORUCH"."BPPOKAZTIPA"'
      Size = 255
    end
    object qBankBPVIDOPLATY: TIBStringField
      FieldName = 'BPVIDOPLATY'
      Origin = '"BANK_PORUCH"."BPVIDOPLATY"'
      Size = 255
    end
    object qBankBPPRIHOD: TIntegerField
      FieldName = 'BPPRIHOD'
      Origin = '"BANK_PORUCH"."BPPRIHOD"'
      Required = True
    end
    object qBankBPTYPE: TIntegerField
      FieldName = 'BPTYPE'
      Origin = '"BANK_PORUCH"."BPTYPE"'
    end
    object qBankBPDATASPISANO: TDateField
      FieldName = 'BPDATASPISANO'
      Origin = '"BANK_PORUCH"."BPDATASPISANO"'
    end
    object qBankBPDATAPOSTUPILO: TDateField
      FieldName = 'BPDATAPOSTUPILO'
      Origin = '"BANK_PORUCH"."BPDATAPOSTUPILO"'
    end
  end
  object quBank: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  BPID,'
      '  BPNAME,'
      '  BPNUM,'
      '  BPDATE,'
      '  BPSUMMA,'
      '  BPPLATSCHET,'
      '  BPPOLUCHSCHET,'
      '  BPPLATINN,'
      '  BPPLAT1,'
      '  BPPLATBIK,'
      '  BPPLATBANK1,'
      '  BPPOLUCHINN,'
      '  BPPOLUCH1,'
      '  BPPOLUCHBIK,'
      '  BPPOLUCHBANK1,'
      '  BPNAZNACHPLAT,'
      '  BPSTATUSSOST,'
      '  BPPLATKPP,'
      '  BPPOLUCHKPP,'
      '  BPPOKAZKBK,'
      '  BPOKATO,'
      '  BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA,'
      '  BPPOKAZNOMERA,'
      '  BPPOKAZDATY,'
      '  BPPOKAZTIPA,'
      '  BPVIDOPLATY,'
      '  BPDATASPISANO,'
      '  BPDATAPOSTUPILO,'
      '  BPPRIHOD'
      'from BANK_PORUCH '
      'where'
      '  BPID = :BPID')
    ModifySQL.Strings = (
      'update BANK_PORUCH'
      'set'
      '  BPDATAPOSTUPILO = :BPDATAPOSTUPILO,'
      '  BPDATASPISANO = :BPDATASPISANO,'
      '  BPDATE = :BPDATE,'
      '  BPID = :BPID,'
      '  BPNAME = :BPNAME,'
      '  BPNAZNACHPLAT = :BPNAZNACHPLAT,'
      '  BPNUM = :BPNUM,'
      '  BPOKATO = :BPOKATO,'
      '  BPPLAT1 = :BPPLAT1,'
      '  BPPLATBANK1 = :BPPLATBANK1,'
      '  BPPLATBIK = :BPPLATBIK,'
      '  BPPLATINN = :BPPLATINN,'
      '  BPPLATKPP = :BPPLATKPP,'
      '  BPPLATSCHET = :BPPLATSCHET,'
      '  BPPOKAZDATY = :BPPOKAZDATY,'
      '  BPPOKAZKBK = :BPPOKAZKBK,'
      '  BPPOKAZNOMERA = :BPPOKAZNOMERA,'
      '  BPPOKAZOSNOV = :BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA = :BPPOKAZPERIODA,'
      '  BPPOKAZTIPA = :BPPOKAZTIPA,'
      '  BPPOLUCH1 = :BPPOLUCH1,'
      '  BPPOLUCHBANK1 = :BPPOLUCHBANK1,'
      '  BPPOLUCHBIK = :BPPOLUCHBIK,'
      '  BPPOLUCHINN = :BPPOLUCHINN,'
      '  BPPOLUCHKPP = :BPPOLUCHKPP,'
      '  BPPOLUCHSCHET = :BPPOLUCHSCHET,'
      '  BPPRIHOD = :BPPRIHOD,'
      '  BPSTATUSSOST = :BPSTATUSSOST,'
      '  BPSUMMA = :BPSUMMA,'
      '  BPVIDOPLATY = :BPVIDOPLATY'
      'where'
      '  BPID = :OLD_BPID')
    InsertSQL.Strings = (
      'insert into BANK_PORUCH'
      
        '  (BPDATAPOSTUPILO, BPDATASPISANO, BPDATE, BPID, BPNAME, BPNAZNA' +
        'CHPLAT, '
      
        '   BPNUM, BPOKATO, BPPLAT1, BPPLATBANK1, BPPLATBIK, BPPLATINN, B' +
        'PPLATKPP, '
      
        '   BPPLATSCHET, BPPOKAZDATY, BPPOKAZKBK, BPPOKAZNOMERA, BPPOKAZO' +
        'SNOV, BPPOKAZPERIODA, '
      
        '   BPPOKAZTIPA, BPPOLUCH1, BPPOLUCHBANK1, BPPOLUCHBIK, BPPOLUCHI' +
        'NN, BPPOLUCHKPP, '
      '   BPPOLUCHSCHET, BPPRIHOD, BPSTATUSSOST, BPSUMMA, BPVIDOPLATY)'
      'values'
      
        '  (:BPDATAPOSTUPILO, :BPDATASPISANO, :BPDATE, :BPID, :BPNAME, :B' +
        'PNAZNACHPLAT, '
      
        '   :BPNUM, :BPOKATO, :BPPLAT1, :BPPLATBANK1, :BPPLATBIK, :BPPLAT' +
        'INN, :BPPLATKPP, '
      
        '   :BPPLATSCHET, :BPPOKAZDATY, :BPPOKAZKBK, :BPPOKAZNOMERA, :BPP' +
        'OKAZOSNOV, '
      
        '   :BPPOKAZPERIODA, :BPPOKAZTIPA, :BPPOLUCH1, :BPPOLUCHBANK1, :B' +
        'PPOLUCHBIK, '
      
        '   :BPPOLUCHINN, :BPPOLUCHKPP, :BPPOLUCHSCHET, :BPPRIHOD, :BPSTA' +
        'TUSSOST, '
      '   :BPSUMMA, :BPVIDOPLATY)')
    DeleteSQL.Strings = (
      'null;')
    Left = 808
    Top = 80
  end
  object qChekDocExists: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select count(*)'
      'FROM BANK_PORUCH bp'
      'where'
      'bp.BPNUM = :bpnum'
      'and BPDATE=:bpdate'
      'and BPSUMMA=:bpsumma'
      'and BPPLATschet=:bpplatschet'
      'and bppoluchschet=:bppolschet'
      '')
    GeneratorField.Field = 'BPID'
    Left = 776
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bpnum'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bpdate'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bpsumma'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bpplatschet'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bppolschet'
        ParamType = ptUnknown
      end>
  end
  object dxMemData1: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 744
    Top = 48
    object dxMemData1DocTip: TStringField
      FieldName = 'DocTip'
      Size = 100
    end
    object dxMemData1DocData: TDateField
      FieldName = 'DocData'
    end
    object dxMemData1DocNomer: TIntegerField
      FieldName = 'Nomer'
    end
    object dxMemData1Summa: TCurrencyField
      FieldName = 'Summa'
    end
    object dxMemData1PlatSchet: TStringField
      FieldName = 'PlatSchet'
    end
    object dxMemData1PolSchet: TStringField
      FieldName = 'PolSchet'
    end
    object dxMemData1PlatINN: TStringField
      FieldName = 'PlatINN'
      Size = 12
    end
    object dxMemData1Plat1: TStringField
      FieldName = 'Plat1'
      Size = 2048
    end
    object dxMemData1PlatBIK: TStringField
      FieldName = 'PlatBIK'
      Size = 9
    end
    object dxMemData1PlatBank1: TStringField
      FieldName = 'PlatBank1'
      Size = 300
    end
    object dxMemData1PolINN: TStringField
      FieldName = 'PolINN'
      Size = 12
    end
    object dxMemData1Pol1: TStringField
      FieldName = 'Pol1'
      Size = 2048
    end
    object dxMemData1PolBIK: TStringField
      FieldName = 'PolBIK'
      Size = 9
    end
    object dxMemData1PolBank1: TStringField
      FieldName = 'PolBank1'
      Size = 300
    end
    object dxMemData1NaznPlat: TStringField
      FieldName = 'NaznPlat'
      Size = 2048
    end
    object dxMemData1StatusSost: TStringField
      FieldName = 'StatusSost'
      Size = 2048
    end
    object dxMemData1PlatKPP: TStringField
      FieldName = 'PlatKPP'
      Size = 9
    end
    object dxMemData1PolKPP: TStringField
      FieldName = 'PolKPP'
      Size = 9
    end
    object dxMemData1PokazKBK: TStringField
      FieldName = 'PokazKBK'
    end
    object dxMemData1OKATO: TStringField
      FieldName = 'OKATO'
    end
    object dxMemData1PokazOsnovan: TStringField
      FieldName = 'PokazOsnovan'
    end
    object dxMemData1PokazPeriod: TStringField
      FieldName = 'PokazPeriod'
    end
    object dxMemData1PokazNomer: TStringField
      FieldName = 'PokazNomer'
    end
    object dxMemData1PokazData: TStringField
      FieldName = 'PokazData'
    end
    object dxMemData1PokazTip: TStringField
      FieldName = 'PokazTip'
    end
    object dxMemData1VidOplata: TStringField
      FieldName = 'VidOplata'
    end
    object dxMemData1DataSpisan: TDateTimeField
      FieldName = 'DataSpisan'
    end
    object dxMemData1DataPostup: TDateTimeField
      FieldName = 'DataPostup'
    end
  end
  object IBQueryAllPoruch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select bank_poruch.*'
      'from bank_poruch '
      'where (bpprihod=1) and (bpname='#39#1055#1083#1072#1090#1077#1078#1085#1086#1077' '#1087#1086#1088#1091#1095#1077#1085#1080#1077#39')'
      'order by  9, 31')
    UpdateObject = quIBQueryAllPoruch
    Left = 680
    Top = 48
    object IBQueryAllPoruchBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"BANK_PORUCH"."BPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBQueryAllPoruchBPNAME: TIBStringField
      FieldName = 'BPNAME'
      Origin = '"BANK_PORUCH"."BPNAME"'
      Size = 255
    end
    object IBQueryAllPoruchBPNUM: TIntegerField
      FieldName = 'BPNUM'
      Origin = '"BANK_PORUCH"."BPNUM"'
    end
    object IBQueryAllPoruchBPDATE: TDateField
      FieldName = 'BPDATE'
      Origin = '"BANK_PORUCH"."BPDATE"'
    end
    object IBQueryAllPoruchBPSUMMA: TIBBCDField
      FieldName = 'BPSUMMA'
      Origin = '"BANK_PORUCH"."BPSUMMA"'
      DisplayFormat = '#,###0.00'
      Precision = 18
      Size = 2
    end
    object IBQueryAllPoruchBPPLATSCHET: TIBStringField
      FieldName = 'BPPLATSCHET'
      Origin = '"BANK_PORUCH"."BPPLATSCHET"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOLUCHSCHET: TIBStringField
      FieldName = 'BPPOLUCHSCHET'
      Origin = '"BANK_PORUCH"."BPPOLUCHSCHET"'
      Size = 255
    end
    object IBQueryAllPoruchBPPLATINN: TIBStringField
      FieldName = 'BPPLATINN'
      Origin = '"BANK_PORUCH"."BPPLATINN"'
      Size = 12
    end
    object IBQueryAllPoruchBPPLAT1: TIBStringField
      FieldName = 'BPPLAT1'
      Origin = '"BANK_PORUCH"."BPPLAT1"'
      Size = 2048
    end
    object IBQueryAllPoruchBPPLATBIK: TIBStringField
      FieldName = 'BPPLATBIK'
      Origin = '"BANK_PORUCH"."BPPLATBIK"'
      Size = 255
    end
    object IBQueryAllPoruchBPPLATBANK1: TIBStringField
      FieldName = 'BPPLATBANK1'
      Origin = '"BANK_PORUCH"."BPPLATBANK1"'
      Size = 2048
    end
    object IBQueryAllPoruchBPPOLUCHINN: TIBStringField
      FieldName = 'BPPOLUCHINN'
      Origin = '"BANK_PORUCH"."BPPOLUCHINN"'
      Size = 12
    end
    object IBQueryAllPoruchBPPOLUCH1: TIBStringField
      FieldName = 'BPPOLUCH1'
      Origin = '"BANK_PORUCH"."BPPOLUCH1"'
      Size = 2048
    end
    object IBQueryAllPoruchBPPOLUCHBIK: TIBStringField
      FieldName = 'BPPOLUCHBIK'
      Origin = '"BANK_PORUCH"."BPPOLUCHBIK"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOLUCHBANK1: TIBStringField
      FieldName = 'BPPOLUCHBANK1'
      Origin = '"BANK_PORUCH"."BPPOLUCHBANK1"'
      Size = 2048
    end
    object IBQueryAllPoruchBPNAZNACHPLAT: TIBStringField
      FieldName = 'BPNAZNACHPLAT'
      Origin = '"BANK_PORUCH"."BPNAZNACHPLAT"'
      Size = 2048
    end
    object IBQueryAllPoruchBPSTATUSSOST: TIBStringField
      FieldName = 'BPSTATUSSOST'
      Origin = '"BANK_PORUCH"."BPSTATUSSOST"'
      Size = 255
    end
    object IBQueryAllPoruchBPPLATKPP: TIBStringField
      FieldName = 'BPPLATKPP'
      Origin = '"BANK_PORUCH"."BPPLATKPP"'
      Size = 12
    end
    object IBQueryAllPoruchBPPOLUCHKPP: TIBStringField
      FieldName = 'BPPOLUCHKPP'
      Origin = '"BANK_PORUCH"."BPPOLUCHKPP"'
      Size = 12
    end
    object IBQueryAllPoruchBPPOKAZKBK: TIBStringField
      FieldName = 'BPPOKAZKBK'
      Origin = '"BANK_PORUCH"."BPPOKAZKBK"'
      Size = 255
    end
    object IBQueryAllPoruchBPOKATO: TIBStringField
      FieldName = 'BPOKATO'
      Origin = '"BANK_PORUCH"."BPOKATO"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOKAZOSNOV: TIBStringField
      FieldName = 'BPPOKAZOSNOV'
      Origin = '"BANK_PORUCH"."BPPOKAZOSNOV"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOKAZPERIODA: TIBStringField
      FieldName = 'BPPOKAZPERIODA'
      Origin = '"BANK_PORUCH"."BPPOKAZPERIODA"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOKAZNOMERA: TIBStringField
      FieldName = 'BPPOKAZNOMERA'
      Origin = '"BANK_PORUCH"."BPPOKAZNOMERA"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOKAZDATY: TIBStringField
      FieldName = 'BPPOKAZDATY'
      Origin = '"BANK_PORUCH"."BPPOKAZDATY"'
      Size = 255
    end
    object IBQueryAllPoruchBPPOKAZTIPA: TIBStringField
      FieldName = 'BPPOKAZTIPA'
      Origin = '"BANK_PORUCH"."BPPOKAZTIPA"'
      Size = 255
    end
    object IBQueryAllPoruchBPVIDOPLATY: TIBStringField
      FieldName = 'BPVIDOPLATY'
      Origin = '"BANK_PORUCH"."BPVIDOPLATY"'
      Size = 255
    end
    object IBQueryAllPoruchBPPRIHOD: TIntegerField
      FieldName = 'BPPRIHOD'
      Origin = '"BANK_PORUCH"."BPPRIHOD"'
    end
    object IBQueryAllPoruchBPTYPE: TIntegerField
      FieldName = 'BPTYPE'
      Origin = '"BANK_PORUCH"."BPTYPE"'
    end
    object IBQueryAllPoruchBPDATASPISANO: TDateField
      FieldName = 'BPDATASPISANO'
      Origin = '"BANK_PORUCH"."BPDATASPISANO"'
    end
    object IBQueryAllPoruchBPDATAPOSTUPILO: TDateField
      FieldName = 'BPDATAPOSTUPILO'
      Origin = '"BANK_PORUCH"."BPDATAPOSTUPILO"'
    end
  end
  object DataSourceAllPoruch: TDataSource
    DataSet = IBQueryAllPoruch
    OnDataChange = DataSourceAllPoruchDataChange
    Left = 680
    Top = 80
  end
  object IBQueryGetAllPoluch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select pid, '
      'case when (plastname is null) then '#39#39' else plastname end ||'#39' '#39'||'
      'case when (pname is null) then '#39#39' else pname end ||'#39' '#39'||'
      
        'case when (ppatronymic is null) then '#39#39' else ppatronymic end as ' +
        'fio,'
      'pdatebirth'
      'from people'
      'order by fio')
    Left = 592
    Top = 48
  end
  object IBQueryAppendRecord: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from common_serv'
      'where (bpid=:bpid)'
      '')
    UpdateObject = IBUpdateSQLAppendRecord
    GeneratorField.Field = 'CSID'
    GeneratorField.Generator = 'GEN_COMMON_SERV_ID'
    Left = 536
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bpid'
        ParamType = ptUnknown
      end>
  end
  object IBUpdateSQLAppendRecord: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CSID,'
      '  PID_POLUCH,'
      '  CSFORM,'
      '  CSAMOUNT,'
      '  CSDATE,'
      '  PID,'
      '  CSFORWHAT,'
      '  CSNOTE,'
      '  CSUSERENTER,'
      '  CSTIMEENTER,'
      '  CSUSEREDIT,'
      '  CSTIMEEDIT,'
      '  CSISDELETE,'
      '  CSDELETENOTE,'
      '  CSNUMUSER,'
      '  JLID,'
      '  BPID'
      'from common_serv '
      'where'
      '  CSID = :CSID')
    ModifySQL.Strings = (
      'update common_serv'
      'set'
      '  PID_POLUCH = :PID_POLUCH,'
      '  JLID = :JLID'
      'where'
      '  CSID = :OLD_CSID')
    InsertSQL.Strings = (
      'insert into common_serv'
      '  (PID_POLUCH,csid,csform,csamount,csdate,csforwhat,bpid)'
      'values'
      '  (:PID_POLUCH,:csid,:csform,:csamount,:csdate,:csforwhat,:bpid)')
    DeleteSQL.Strings = (
      'null;')
    Left = 536
    Top = 80
  end
  object IBQueryGetAllJl: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select jlid,jlegalname,jlinn from jurlitsa')
    Left = 624
    Top = 48
  end
  object IBQueryAppendPeopleCommon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from people_common'
      'where csid=:csid')
    UpdateObject = IBUpdateSQLAppendPeopleCommon
    Left = 504
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'csid'
        ParamType = ptUnknown
      end>
  end
  object IBUpdateSQLAppendPeopleCommon: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  PID,'
      '  CSID'
      'from people_common '
      'where'
      '  CSID = :CSID')
    ModifySQL.Strings = (
      'update people_common'
      'set'
      '  CSID = :CSID,'
      '  PID = :PID'
      'where'
      '  CSID = :OLD_CSID')
    InsertSQL.Strings = (
      'insert into people_common'
      '  (CSID, PID)'
      'values'
      '  (:CSID, :PID)')
    DeleteSQL.Strings = (
      'null;')
    Left = 504
    Top = 80
  end
  object IBQueryDelPeopleCommon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'delete from people_common'
      'where'
      '  CSID = :CSID')
    Left = 472
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CSID'
        ParamType = ptUnknown
      end>
  end
  object qCommon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qCommonAfterInsert
    AfterOpen = qCommonAfterOpen
    CachedUpdates = True
    DataSource = DataSourceAllPoruch
    SQL.Strings = (
      
        'SELECT CS.* , (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')|| '
      #39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP, '
      'p1.PLASTNAME||'#39' '#39'||SUBSTRING(p1.PNAME FROM 1 FOR 1 )||'#39'. '#39'|| '
      
        'COALESCE(SUBSTRING(p1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS aut' +
        'or, '
      
        '(COALESCE(P_poluch.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P_poluch.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P_poluch.PPATRONYMIC,'#39' '#39')) AS PP_poluch, '
      'P_poluch.PDATEBIRTH, U.PID as pid_user'
      'FROM COMMON_SERV CS'
      'LEFT OUTER JOIN PEOPLE_COMMON PC ON PC.CSID = CS.CSID'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = PC.PID '
      'LEFT OUTER JOIN USERS U ON U.USNAME = CS.CSUSERENTER '
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = U.PID '
      'LEFT OUTER JOIN PEOPLE P_poluch ON P_poluch.PID = CS.PID_POLUCH'
      'WHERE (CS.JLID IS NULL) and CS.BPID = :BPID'
      '    AND CS.CSISDELETE IS NULL '
      'UNION  '
      'SELECT CS.* , '
      '(jl.JLOPF||'#39' '#39'||JL.JLEGALNAME) AS PP, '
      'p1.PLASTNAME||'#39' '#39'||SUBSTRING(p1.PNAME FROM 1 FOR 1 )||'#39'. '#39'|| '
      
        'COALESCE(SUBSTRING(p1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS aut' +
        'or, '
      
        '(COALESCE(P_poluch.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P_poluch.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P_poluch.PPATRONYMIC,'#39' '#39')) AS PP_poluch, '
      'P_poluch.PDATEBIRTH, U.PID as pid_user'
      'FROM COMMON_SERV CS'
      'LEFT OUTER JOIN JURLITSA JL ON JL.JLID = CS.JLID'
      'LEFT OUTER JOIN USERS U ON U.USNAME = CS.CSUSERENTER '
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = U.PID '
      'LEFT OUTER JOIN PEOPLE P_poluch ON P_poluch.PID = CS.PID_POLUCH'
      'WHERE (CS.JLID IS NOT NULL) and CS.BPID = :BPID'
      '    AND CS.CSISDELETE IS NULL ')
    UpdateObject = quCommon
    GeneratorField.Field = 'CSID'
    GeneratorField.Generator = 'GEN_COMMON_SERV_ID'
    Left = 632
    Top = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bpid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end>
    object qCommonPID_POLUCH: TIntegerField
      FieldName = 'PID_POLUCH'
      Origin = '"COMMON_SERV"."PID_POLUCH"'
    end
    object qCommonCSAMOUNT: TIBBCDField
      FieldName = 'CSAMOUNT'
      Origin = '"COMMON_SERV"."CSAMOUNT"'
      DisplayFormat = '#,###0'
      EditFormat = '0'
      Precision = 18
      Size = 2
    end
    object qCommonCSUSERMONEY: TIntegerField
      FieldName = 'CSUSERMONEY'
      Origin = '"COMMON_SERV"."CSUSERMONEY"'
    end
    object qCommonBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"COMMON_SERV"."BPID"'
    end
    object qCommonCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"COMMON_SERV"."CSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qCommonCSFORM: TIntegerField
      FieldName = 'CSFORM'
      Origin = '"COMMON_SERV"."CSFORM"'
    end
    object qCommonPID: TIntegerField
      FieldName = 'PID'
      Origin = '"COMMON_SERV"."PID"'
    end
    object qCommonCSFORWHAT: TIBStringField
      FieldName = 'CSFORWHAT'
      Origin = '"COMMON_SERV"."CSFORWHAT"'
      Size = 255
    end
    object qCommonCSDATE: TDateField
      FieldName = 'CSDATE'
      Origin = '"COMMON_SERV"."CSDATE"'
    end
    object qCommonCSNOTE: TIBStringField
      FieldName = 'CSNOTE'
      Origin = '"COMMON_SERV"."CSNOTE"'
      Size = 255
    end
    object qCommonCSUSERENTER: TIBStringField
      FieldName = 'CSUSERENTER'
      Origin = '"COMMON_SERV"."CSUSERENTER"'
      Size = 40
    end
    object qCommonCSTIMEENTER: TDateTimeField
      FieldName = 'CSTIMEENTER'
      Origin = '"COMMON_SERV"."CSTIMEENTER"'
    end
    object qCommonCSUSEREDIT: TIBStringField
      FieldName = 'CSUSEREDIT'
      Origin = '"COMMON_SERV"."CSUSEREDIT"'
      Size = 40
    end
    object qCommonCSTIMEEDIT: TDateTimeField
      FieldName = 'CSTIMEEDIT'
      Origin = '"COMMON_SERV"."CSTIMEEDIT"'
    end
    object qCommonCSISDELETE: TIntegerField
      FieldName = 'CSISDELETE'
      Origin = '"COMMON_SERV"."CSISDELETE"'
    end
    object qCommonCSDELETENOTE: TIBStringField
      FieldName = 'CSDELETENOTE'
      Origin = '"COMMON_SERV"."CSDELETENOTE"'
      Size = 255
    end
    object qCommonCSNUMUSER: TIntegerField
      FieldName = 'CSNUMUSER'
      Origin = '"COMMON_SERV"."CSNUMUSER"'
    end
    object qCommonJLID: TIntegerField
      FieldName = 'JLID'
      Origin = '"COMMON_SERV"."JLID"'
    end
    object qCommonPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qCommonAUTOR: TIBStringField
      FieldName = 'AUTOR'
      ProviderFlags = []
      Size = 769
    end
    object qCommonPP_POLUCH: TIBStringField
      FieldName = 'PP_POLUCH'
      ProviderFlags = []
      Size = 767
    end
    object qCommonPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qCommonPID_USER: TIntegerField
      FieldName = 'PID_USER'
      Origin = '"USERS"."PID"'
    end
    object qCommonRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"COMMON_SERV"."RPID"'
    end
  end
  object dsCommon: TDataSource
    AutoEdit = False
    DataSet = qCommon
    Left = 600
    Top = 296
  end
  object qComRaznes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsCommon
    SQL.Strings = (
      
        'SELECT C.CAMOUNT,  ST.STNAME, CAST(COALESCE(SCPD.dolgny_zapl, 0)' +
        ' AS NUMERIC(18,0)) AS dolgny_zapl,'
      
        '       COALESCE(SCPD1.zapl1,0) AS nal, COALESCE(SCPD2.zapl1,0) A' +
        'S beznal,'
      
        '(COALESCE(SCPD1.zapl1,0) + COALESCE(SCPD2.zapl1,0)) AS uje_zapla' +
        'tili,'
      
        'SC.SCTARIFWITHDISCOUNT, ST.STTARIF, (ST.STTARIF - SC.SCTARIFWITH' +
        'DISCOUNT) AS skidka,'
      ' SC.SCNUM_N, SC.SCDATEBEGIN, SC.SCDATEEND'
      'FROM COMMON C'
      'INNER JOIN SPEC_COND SC ON SC.SCID = C.SCID'
      'INNER JOIN SERVICES S ON S.SCID = SC.SCID'
      'INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      'LEFT OUTER JOIN'
      '('
      'SELECT GP.SCID, SUM(GP.GPAMOUNT) AS dolgny_zapl'
      'FROM SC_GRAFPLAT GP'
      'WHERE GP.GPDATE <= CURRENT_DATE'
      'GROUP BY 1) AS SCPD ON SCPD.SCID = C.SCID'
      'LEFT OUTER JOIN'
      '('
      'SELECT COM.SCID, SUM(COM.CAMOUNT) AS zapl1'
      'FROM COMMON_SERV CS'
      'INNER JOIN COMMON COM ON COM.CSID = CS.CSID'
      'WHERE CS.CSISDELETE IS NULL'
      '    AND CS.CSFORM = 0'
      '    AND COM.CTYPE <> 2'
      'GROUP BY 1'
      ') AS SCPD1 ON SCPD1.SCID = C.SCID'
      'LEFT OUTER JOIN'
      '('
      'SELECT COM.SCID, SUM(COM.CAMOUNT) AS zapl1'
      'FROM COMMON_SERV CS'
      'INNER JOIN COMMON COM ON COM.CSID = CS.CSID'
      'WHERE CS.CSISDELETE IS NULL'
      '    AND CS.CSFORM = 1'
      '    AND COM.CTYPE <> 2'
      'GROUP BY 1'
      ') AS SCPD2 ON SCPD2.SCID = C.SCID'
      'WHERE C.CSID = :CSID AND C.CTYPE = 1'
      'ORDER BY 2')
    Left = 625
    Top = 365
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qComRaznesCAMOUNT: TIBBCDField
      FieldName = 'CAMOUNT'
      Origin = '"COMMON"."CAMOUNT"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSTNAME: TIBStringField
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qComRaznesDOLGNY_ZAPL: TLargeintField
      FieldName = 'DOLGNY_ZAPL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
    end
    object qComRaznesNAL: TIBBCDField
      FieldName = 'NAL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesBEZNAL: TIBBCDField
      FieldName = 'BEZNAL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesUJE_ZAPLATILI: TIBBCDField
      FieldName = 'UJE_ZAPLATILI'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSCTARIFWITHDISCOUNT: TIBBCDField
      FieldName = 'SCTARIFWITHDISCOUNT'
      Origin = '"SPEC_COND"."SCTARIFWITHDISCOUNT"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSTTARIF: TIBBCDField
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      Required = True
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSKIDKA: TIBBCDField
      FieldName = 'SKIDKA'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qComRaznesSCNUM_N: TIntegerField
      FieldName = 'SCNUM_N'
      Origin = '"SPEC_COND"."SCNUM_N"'
    end
    object qComRaznesSCDATEBEGIN: TDateField
      FieldName = 'SCDATEBEGIN'
      Origin = '"SPEC_COND"."SCDATEBEGIN"'
    end
    object qComRaznesSCDATEEND: TDateField
      FieldName = 'SCDATEEND'
      Origin = '"SPEC_COND"."SCDATEEND"'
    end
  end
  object dsComRaznes: TDataSource
    DataSet = qComRaznes
    Left = 593
    Top = 365
  end
  object qFindBIK: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = DataSourceAllPoruch
    SQL.Strings = (
      
        'SELECT DISTINCT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE' +
        '(P.PNAME,'#39' '#39')||'
      #39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS fio, P.PDATEBIRTH'
      'FROM BANK_PORUCH BP'
      'INNER JOIN COMMON_SERV CS ON CS.BPID = BP.BPID'
      'INNER JOIN PEOPLE P ON P.PID = CS.PID_POLUCH'
      'WHERE BP.BPPLATBIK = :BPPLATBIK'
      '    AND CS.CSISDELETE IS NULL'
      '')
    GeneratorField.Field = 'BPID'
    Left = 8
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BPPLATBIK'
        ParamType = ptUnknown
      end>
  end
  object quCommon: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CSID,'
      '  PID_POLUCH,'
      '  CSFORM,'
      '  CSAMOUNT,'
      '  CSDATE,'
      '  PID,'
      '  CSFORWHAT,'
      '  CSNOTE,'
      '  CSUSERENTER,'
      '  CSTIMEENTER,'
      '  CSUSEREDIT,'
      '  CSTIMEEDIT,'
      '  CSISDELETE,'
      '  CSDELETENOTE,'
      '  CSNUMUSER,'
      '  JLID,'
      '  CSUSERMONEY,'
      '  BPID,'
      '  RPID,'
      '  PP,'
      '  AUTOR,'
      '  PP_POLUCH,'
      '  PDATEBIRTH,'
      '  PID_USER'
      'from COMMON_SERV '
      'where'
      '  CSID = :CSID')
    ModifySQL.Strings = (
      'update COMMON_SERV'
      'set'
      '  BPID = :BPID,'
      '  CSAMOUNT = :CSAMOUNT,'
      '  CSDATE = :CSDATE,'
      '  CSDELETENOTE = :CSDELETENOTE,'
      '  CSFORM = :CSFORM,'
      '  CSFORWHAT = :CSFORWHAT,'
      '  CSID = :CSID,'
      '  CSISDELETE = :CSISDELETE,'
      '  CSNOTE = :CSNOTE,'
      '  CSNUMUSER = :CSNUMUSER,'
      '  CSTIMEEDIT = :CSTIMEEDIT,'
      '  CSTIMEENTER = :CSTIMEENTER,'
      '  CSUSEREDIT = :CSUSEREDIT,'
      '  CSUSERENTER = :CSUSERENTER,'
      '  CSUSERMONEY = :CSUSERMONEY,'
      '  JLID = :JLID,'
      '  PID = :PID,'
      '  PID_POLUCH = :PID_POLUCH,'
      '  RPID = :RPID'
      'where'
      '  CSID = :OLD_CSID')
    InsertSQL.Strings = (
      'insert into COMMON_SERV'
      
        '  (BPID, CSAMOUNT, CSDATE, CSDELETENOTE, CSFORM, CSFORWHAT, CSID' +
        ', CSISDELETE, '
      
        '   CSNOTE, CSNUMUSER, CSTIMEEDIT, CSTIMEENTER, CSUSEREDIT, CSUSE' +
        'RENTER, '
      '   CSUSERMONEY, JLID, PID, PID_POLUCH, RPID)'
      'values'
      
        '  (:BPID, :CSAMOUNT, :CSDATE, :CSDELETENOTE, :CSFORM, :CSFORWHAT' +
        ', :CSID, '
      
        '   :CSISDELETE, :CSNOTE, :CSNUMUSER, :CSTIMEEDIT, :CSTIMEENTER, ' +
        ':CSUSEREDIT, '
      '   :CSUSERENTER, :CSUSERMONEY, :JLID, :PID, :PID_POLUCH, :RPID)')
    DeleteSQL.Strings = (
      'null;')
    Left = 667
    Top = 296
  end
  object quIBQueryAllPoruch: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  BPID,'
      '  BPNAME,'
      '  BPNUM,'
      '  BPDATE,'
      '  BPSUMMA,'
      '  BPPLATSCHET,'
      '  BPPOLUCHSCHET,'
      '  BPPLATINN,'
      '  BPPLAT1,'
      '  BPPLATBIK,'
      '  BPPLATBANK1,'
      '  BPPOLUCHINN,'
      '  BPPOLUCH1,'
      '  BPPOLUCHBIK,'
      '  BPPOLUCHBANK1,'
      '  BPNAZNACHPLAT,'
      '  BPSTATUSSOST,'
      '  BPPLATKPP,'
      '  BPPOLUCHKPP,'
      '  BPPOKAZKBK,'
      '  BPOKATO,'
      '  BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA,'
      '  BPPOKAZNOMERA,'
      '  BPPOKAZDATY,'
      '  BPPOKAZTIPA,'
      '  BPVIDOPLATY,'
      '  BPDATASPISANO,'
      '  BPDATAPOSTUPILO,'
      '  BPPRIHOD,'
      '  BPTYPE'
      'from BANK_PORUCH '
      'where'
      '  BPID = :BPID')
    ModifySQL.Strings = (
      'update BANK_PORUCH'
      'set'
      '  BPDATAPOSTUPILO = :BPDATAPOSTUPILO,'
      '  BPDATASPISANO = :BPDATASPISANO,'
      '  BPDATE = :BPDATE,'
      '  BPID = :BPID,'
      '  BPNAME = :BPNAME,'
      '  BPNAZNACHPLAT = :BPNAZNACHPLAT,'
      '  BPNUM = :BPNUM,'
      '  BPOKATO = :BPOKATO,'
      '  BPPLAT1 = :BPPLAT1,'
      '  BPPLATBANK1 = :BPPLATBANK1,'
      '  BPPLATBIK = :BPPLATBIK,'
      '  BPPLATINN = :BPPLATINN,'
      '  BPPLATKPP = :BPPLATKPP,'
      '  BPPLATSCHET = :BPPLATSCHET,'
      '  BPPOKAZDATY = :BPPOKAZDATY,'
      '  BPPOKAZKBK = :BPPOKAZKBK,'
      '  BPPOKAZNOMERA = :BPPOKAZNOMERA,'
      '  BPPOKAZOSNOV = :BPPOKAZOSNOV,'
      '  BPPOKAZPERIODA = :BPPOKAZPERIODA,'
      '  BPPOKAZTIPA = :BPPOKAZTIPA,'
      '  BPPOLUCH1 = :BPPOLUCH1,'
      '  BPPOLUCHBANK1 = :BPPOLUCHBANK1,'
      '  BPPOLUCHBIK = :BPPOLUCHBIK,'
      '  BPPOLUCHINN = :BPPOLUCHINN,'
      '  BPPOLUCHKPP = :BPPOLUCHKPP,'
      '  BPPOLUCHSCHET = :BPPOLUCHSCHET,'
      '  BPPRIHOD = :BPPRIHOD,'
      '  BPSTATUSSOST = :BPSTATUSSOST,'
      '  BPSUMMA = :BPSUMMA,'
      '  BPTYPE = :BPTYPE,'
      '  BPVIDOPLATY = :BPVIDOPLATY'
      'where'
      '  BPID = :OLD_BPID')
    InsertSQL.Strings = (
      'insert into BANK_PORUCH'
      
        '  (BPDATAPOSTUPILO, BPDATASPISANO, BPDATE, BPID, BPNAME, BPNAZNA' +
        'CHPLAT, '
      
        '   BPNUM, BPOKATO, BPPLAT1, BPPLATBANK1, BPPLATBIK, BPPLATINN, B' +
        'PPLATKPP, '
      
        '   BPPLATSCHET, BPPOKAZDATY, BPPOKAZKBK, BPPOKAZNOMERA, BPPOKAZO' +
        'SNOV, BPPOKAZPERIODA, '
      
        '   BPPOKAZTIPA, BPPOLUCH1, BPPOLUCHBANK1, BPPOLUCHBIK, BPPOLUCHI' +
        'NN, BPPOLUCHKPP, '
      
        '   BPPOLUCHSCHET, BPPRIHOD, BPSTATUSSOST, BPSUMMA, BPTYPE, BPVID' +
        'OPLATY)'
      'values'
      
        '  (:BPDATAPOSTUPILO, :BPDATASPISANO, :BPDATE, :BPID, :BPNAME, :B' +
        'PNAZNACHPLAT, '
      
        '   :BPNUM, :BPOKATO, :BPPLAT1, :BPPLATBANK1, :BPPLATBIK, :BPPLAT' +
        'INN, :BPPLATKPP, '
      
        '   :BPPLATSCHET, :BPPOKAZDATY, :BPPOKAZKBK, :BPPOKAZNOMERA, :BPP' +
        'OKAZOSNOV, '
      
        '   :BPPOKAZPERIODA, :BPPOKAZTIPA, :BPPOLUCH1, :BPPOLUCHBANK1, :B' +
        'PPOLUCHBIK, '
      
        '   :BPPOLUCHINN, :BPPOLUCHKPP, :BPPOLUCHSCHET, :BPPRIHOD, :BPSTA' +
        'TUSSOST, '
      '   :BPSUMMA, :BPTYPE, :BPVIDOPLATY)')
    DeleteSQL.Strings = (
      'null;')
    Left = 680
    Top = 112
  end
  object mBPTYPE: TdxMemData
    Active = True
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F020000000200000002000700627074797065001400
      000001000900747970656E616D6500010000010B000000D2E5F5EDE8F7E5F1EA
      E8E9010100010C000000CDE5EEEFEEE7EDE0EDEDFBE90103000108000000C0F0
      F5E8E2EDFBE9010200010A000000CAEBE8E5EDF2F1EAE8E9}
    SortOptions = []
    Left = 744
    Top = 96
    object mBPTYPEbptype: TSmallintField
      FieldName = 'bptype'
    end
    object mBPTYPEtypename: TStringField
      FieldName = 'typename'
    end
  end
  object dsBPTYPE: TDataSource
    DataSet = mBPTYPE
    Left = 744
    Top = 128
  end
  object qCheckRaznes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT IIF (BP1.BPSUMMA = COALESCE((SELECT SUM(CS.CSAMOUNT)'
      'FROM BANK_PORUCH BP'
      'INNER JOIN COMMON_SERV CS ON CS.BPID = BP.BPID'
      
        'WHERE BP.BPID = :BPID AND CS.CSISDELETE IS NULL), IIF (BP1.BPTYP' +
        'E = 2, (-1) * BP1.BPSUMMA , BP1.BPSUMMA) ), 1, 0) AS is_equal'
      'FROM BANK_PORUCH BP1'
      'WHERE BP1.BPID = :BPID'
      '')
    Left = 96
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end>
    object qCheckRaznesIS_EQUAL: TIntegerField
      FieldName = 'IS_EQUAL'
      ProviderFlags = []
    end
  end
  object sqlDelCS: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE COMMON_SERV CS SET CS.CSISDELETE = 1'
      'WHERE CS.BPID = :BPID')
    Transaction = DMInv.IBTransaction1
    Left = 136
    Top = 8
  end
  object sqlChangeBPTYPE: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE BANK_PORUCH BP SET BP.BPTYPE = 1'
      'WHERE BP.BPID = :BPID')
    Transaction = DMInv.IBTransaction1
    Left = 168
    Top = 8
  end
  object qPodotch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = DataSourceAllPoruch
    SQL.Strings = (
      'SELECT RP.RPID'
      'FROM RASPRED_PODOTCH RP'
      'WHERE RP.BPID = :BPID')
    Left = 673
    Top = 340
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end>
    object qPodotchRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"RASPRED_PODOTCH"."RPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object qCheckRaznes_Paymants_Agr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT IIF (BP1.BPSUMMA = COALESCE('
      '(SELECT SUM(pa.PAAMOUNTBALANCE)'
      'FROM BANK_PORUCH BP'
      'INNER JOIN PAYMANTS_AGR pa ON pa.BPID = BP.BPID'
      
        'WHERE BP.BPID = :BPID AND pa.PAFORM = 1 AND pa.PAISDELETE IS NUL' +
        'L), IIF (BP1.BPTYPE = 2, (-1) * BP1.BPSUMMA , BP1.BPSUMMA) ), 1,' +
        ' 0) AS is_equal'
      'FROM BANK_PORUCH BP1'
      'WHERE BP1.BPID = :BPID')
    Left = 840
    Top = 386
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BPID'
        ParamType = ptUnknown
      end>
    object qCheckRaznes_Paymants_AgrIS_EQUAL: TIntegerField
      FieldName = 'IS_EQUAL'
      ProviderFlags = []
    end
  end
  object dsPaymants_Agr: TDataSource
    DataSet = qPaymants_Agr
    Left = 768
    Top = 384
  end
  object qPaymants_Agr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = DataSourceAllPoruch
    SQL.Strings = (
      
        'SELECT pa.*, (P_res.PLASTNAME||'#39' '#39'||P_res.PNAME||'#39' '#39'||COALESCE(P' +
        '_res.PPATRONYMIC,'#39' '#39')) AS P_RECIPIENT,'
      
        'IIF(pa.PID IS NOT NULL, (P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||COALESC' +
        'E(P.PPATRONYMIC,'#39' '#39')), COALESCE(sd.SDNAME, jl.JLOPF)||'#39' "'#39'||jl.J' +
        'LEGALNAME||'#39'" '#39') AS plat'
      'FROM PAYMANTS_AGR pa'
      'LEFT OUTER JOIN PEOPLE P_res ON P_res.PID = pa.PID_POLUCH'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = pa.PID'
      'LEFT OUTER JOIN JURLITSA JL ON JL.JLID = pa.JLID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = JL.JLOPFSDID'
      'WHERE pa.bpid = :bPID'
      'AND PA.PAISDELETE IS NULL')
    Left = 803
    Top = 386
    ParamData = <
      item
        DataType = ftInteger
        Name = 'BPID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qPaymants_AgrPAID: TIntegerField
      FieldName = 'PAID'
      Origin = '"PAYMANTS_AGR"."PAID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPaymants_AgrAGRID: TIntegerField
      FieldName = 'AGRID'
      Origin = '"PAYMANTS_AGR"."AGRID"'
    end
    object qPaymants_AgrPID_POLUCH: TIntegerField
      FieldName = 'PID_POLUCH'
      Origin = '"PAYMANTS_AGR"."PID_POLUCH"'
    end
    object qPaymants_AgrPAFORM: TIntegerField
      FieldName = 'PAFORM'
      Origin = '"PAYMANTS_AGR"."PAFORM"'
    end
    object qPaymants_AgrPAAMOUNT: TIBBCDField
      FieldName = 'PAAMOUNT'
      Origin = '"PAYMANTS_AGR"."PAAMOUNT"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPABANKPERCENTS: TIBBCDField
      FieldName = 'PABANKPERCENTS'
      Origin = '"PAYMANTS_AGR"."PABANKPERCENTS"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPAAMOUNTBALANCE: TIBBCDField
      FieldName = 'PAAMOUNTBALANCE'
      Origin = '"PAYMANTS_AGR"."PAAMOUNTBALANCE"'
      Precision = 18
      Size = 2
    end
    object qPaymants_AgrPADATE: TDateField
      FieldName = 'PADATE'
      Origin = '"PAYMANTS_AGR"."PADATE"'
    end
    object qPaymants_AgrPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PAYMANTS_AGR"."PID"'
    end
    object qPaymants_AgrPANOTE: TIBStringField
      FieldName = 'PANOTE'
      Origin = '"PAYMANTS_AGR"."PANOTE"'
      Size = 255
    end
    object qPaymants_AgrPAUSERENTER: TIBStringField
      FieldName = 'PAUSERENTER'
      Origin = '"PAYMANTS_AGR"."PAUSERENTER"'
      Size = 40
    end
    object qPaymants_AgrPATIMEENTER: TDateTimeField
      FieldName = 'PATIMEENTER'
      Origin = '"PAYMANTS_AGR"."PATIMEENTER"'
    end
    object qPaymants_AgrPAUSEREDIT: TIBStringField
      FieldName = 'PAUSEREDIT'
      Origin = '"PAYMANTS_AGR"."PAUSEREDIT"'
      Size = 40
    end
    object qPaymants_AgrPATIMEEDIT: TDateTimeField
      FieldName = 'PATIMEEDIT'
      Origin = '"PAYMANTS_AGR"."PATIMEEDIT"'
    end
    object qPaymants_AgrPAISDELETE: TIntegerField
      FieldName = 'PAISDELETE'
      Origin = '"PAYMANTS_AGR"."PAISDELETE"'
    end
    object qPaymants_AgrPANUMUSER: TIntegerField
      FieldName = 'PANUMUSER'
      Origin = '"PAYMANTS_AGR"."PANUMUSER"'
    end
    object qPaymants_AgrJLID: TIntegerField
      FieldName = 'JLID'
      Origin = '"PAYMANTS_AGR"."JLID"'
    end
    object qPaymants_AgrPAUSERMONEY: TIntegerField
      FieldName = 'PAUSERMONEY'
      Origin = '"PAYMANTS_AGR"."PAUSERMONEY"'
    end
    object qPaymants_AgrBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"PAYMANTS_AGR"."BPID"'
    end
    object qPaymants_AgrRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"PAYMANTS_AGR"."RPID"'
    end
    object qPaymants_AgrCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"PAYMANTS_AGR"."CSID"'
    end
    object qPaymants_AgrP_RECIPIENT: TIBStringField
      FieldName = 'P_RECIPIENT'
      ProviderFlags = []
      Size = 767
    end
    object qPaymants_AgrPLAT: TIBStringField
      FieldName = 'PLAT'
      ProviderFlags = []
      Size = 767
    end
  end
  object sqlDel_Paymants_Agr: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE PAYMANTS_AGR pa'
      
        'SET pa.PAISDELETE = 1, pa.PANOTE = COALESCE(pa.PANOTE, '#39' '#39') || '#39 +
        ' '#1055#1088#1080#1095#1080#1085#1072' '#1091#1076#1072#1083#1077#1085#1080#1103': '#39'||CAST(:txt AS D_STR80)'
      'WHERE pa.PAID = :paid')
    Transaction = DMInv.trWrite
    Left = 896
    Top = 341
  end
end
